BBS in a Box 7

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Util / M-Mc / MacDump.cpt / MacDump / MacRest.Pas < prev next >
MacBinary | 1987-02-18 | 8.8 KB | [TEXT/EDIT]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: MacRest.Pas
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Tue Feb 17 21:26:02 1987, modified Tue Feb 17 21:26:02 1987, creator Macintosh Edit, type ASCII, 8333 bytes "MacRest.Pas" , at 0x210d 348 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[EDIT]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 4d 61 63 52 65 73 | 74 2e 50 61 73 00 00 00 |..MacRes|t.Pas...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 20 8d 00 | 00 01 5c 9c 5e cc 3a 9c |..... ..|..\.^.:.|
|00000060| 5e cc 3a 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |^.:.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 02 2f 00 00 |........|...../..|
|00000080| 50 52 4f 47 52 41 4d 20 | 4d 61 63 52 65 73 74 20 |PROGRAM |MacRest |
|00000090| 28 49 6e 70 75 74 2c 20 | 4f 75 74 70 75 74 29 20 |(Input, |Output) |
|000000a0| 3b 0d 0d 7b 20 54 68 69 | 73 20 77 69 6c 6c 20 72 |;..{ Thi|s will r|
|000000b0| 65 63 6f 76 65 72 20 61 | 20 68 61 72 64 20 64 69 |ecover a| hard di|
|000000c0| 73 6b 20 77 68 69 63 68 | 20 77 61 73 20 64 75 6d |sk which| was dum|
|000000d0| 70 65 64 20 62 79 20 4d | 61 63 44 75 6d 70 20 28 |ped by M|acDump (|
|000000e0| 73 68 61 72 65 77 61 72 | 65 29 0d 0d 52 65 73 74 |sharewar|e)..Rest|
|000000f0| 72 69 63 74 69 6f 6e 73 | 3a 0d 0d 09 54 68 65 20 |rictions|:...The |
|00000100| 68 61 72 64 20 64 69 73 | 6b 20 74 6f 20 62 65 20 |hard dis|k to be |
|00000110| 72 65 63 6f 76 65 72 65 | 64 20 4d 55 53 54 20 62 |recovere|d MUST b|
|00000120| 65 20 6e 61 6d 65 64 20 | 24 24 48 44 20 28 59 6f |e named |$$HD (Yo|
|00000130| 75 20 64 6f 6e 27 74 20 | 6c 69 6b 65 20 69 74 2c |u don't |like it,|
|00000140| 0d 09 49 20 64 6f 6e 27 | 74 20 6c 69 6b 65 20 69 |..I don'|t like i|
|00000150| 74 20 65 69 74 68 65 72 | 20 62 75 74 20 69 74 20 |t either| but it |
|00000160| 76 69 72 74 75 61 6c 6c | 79 20 72 75 6c 65 73 20 |virtuall|y rules |
|00000170| 6f 75 74 20 6e 61 6d 69 | 6e 67 20 63 6f 6c 6c 69 |out nami|ng colli|
|00000180| 73 69 6f 6e 73 2e 0d 09 | 52 65 6e 61 6d 65 20 69 |sions...|Rename i|
|00000190| 74 20 61 66 74 65 72 20 | 74 68 65 20 72 65 63 6f |t after |the reco|
|000001a0| 76 65 72 79 29 2e 20 20 | 4d 61 63 52 65 73 74 20 |very).  |MacRest |
|000001b0| 77 69 6c 6c 20 73 6b 69 | 70 20 61 6e 79 20 66 69 |will ski|p any fi|
|000001c0| 6c 65 20 77 68 69 63 68 | 20 69 73 0d 09 61 6c 72 |le which| is..alr|
|000001d0| 65 61 64 79 20 70 72 65 | 73 65 6e 74 20 6f 6e 20 |eady pre|sent on |
|000001e0| 74 68 65 20 64 69 73 6b | 20 62 65 69 6e 67 20 72 |the disk| being r|
|000001f0| 65 63 6f 76 65 72 65 64 | 2e 0d 0d 4f 70 65 72 61 |ecovered|...Opera|
|00000200| 74 69 6f 6e 3a 0d 0d 09 | 57 68 65 6e 20 79 6f 75 |tion:...|When you|
|00000210| 20 6c 61 75 6e 63 68 20 | 4d 61 63 52 65 73 74 2c | launch |MacRest,|
|00000220| 20 69 74 20 77 69 6c 6c | 20 63 68 65 63 6b 20 74 | it will| check t|
|00000230| 6f 20 73 65 65 20 69 66 | 20 74 68 65 72 65 20 69 |o see if| there i|
|00000240| 73 20 61 20 6d 6f 75 6e | 74 65 64 0d 09 76 6f 6c |s a moun|ted..vol|
|00000250| 75 6d 65 20 6e 61 6d 65 | 64 20 24 24 48 44 2e 20 |ume name|d $$HD. |
|00000260| 20 49 66 20 6e 6f 74 2c | 20 69 74 20 77 69 6c 6c | If not,| it will|
|00000270| 20 70 72 6f 6d 70 74 6c | 79 20 74 65 72 6d 69 6e | promptl|y termin|
|00000280| 61 74 65 2e 20 20 49 66 | 20 74 68 65 72 65 20 69 |ate.  If| there i|
|00000290| 73 0d 09 61 20 76 6f 6c | 75 6d 65 20 6e 61 6d 65 |s..a vol|ume name|
|000002a0| 64 20 24 24 48 44 2c 20 | 49 74 20 77 69 6c 6c 20 |d $$HD, |It will |
|000002b0| 65 6a 65 63 74 20 61 6c | 6c 20 66 6c 6f 70 70 79 |eject al|l floppy|
|000002c0| 73 20 61 6e 64 20 74 68 | 65 6e 20 72 65 70 65 61 |s and th|en repea|
|000002d0| 74 65 64 6c 79 20 0d 09 | 72 65 71 75 65 73 74 20 |tedly ..|request |
|000002e0| 64 69 73 6b 73 20 62 65 | 20 69 6e 73 65 72 74 65 |disks be| inserte|
|000002f0| 64 20 69 6e 20 74 68 65 | 20 69 6e 74 65 72 6e 61 |d in the| interna|
|00000300| 6c 20 64 72 69 76 65 2e | 20 20 45 61 63 68 20 61 |l drive.|  Each a|
|00000310| 6e 64 20 65 76 65 72 79 | 20 66 69 6c 65 0d 09 61 |nd every| file..a|
|00000320| 6e 64 20 63 61 74 61 6c | 6f 67 20 77 69 6c 6c 20 |nd catal|og will |
|00000330| 62 65 20 63 6f 70 69 65 | 64 20 74 6f 20 74 68 65 |be copie|d to the|
|00000340| 20 68 61 72 64 20 64 69 | 73 6b 20 69 66 20 69 74 | hard di|sk if it|
|00000350| 20 69 73 20 6e 6f 74 20 | 61 6c 72 65 61 64 79 20 | is not |already |
|00000360| 74 68 65 72 65 2e 0d 09 | 49 20 64 65 63 69 64 65 |there...|I decide|
|00000370| 64 20 74 6f 20 6e 65 76 | 65 72 20 72 65 70 6c 61 |d to nev|er repla|
|00000380| 63 65 20 61 6e 20 65 78 | 69 73 74 69 6e 67 20 66 |ce an ex|isting f|
|00000390| 69 6c 65 20 73 6f 20 74 | 68 61 74 20 72 65 63 6f |ile so t|hat reco|
|000003a0| 76 65 72 79 20 69 73 20 | 73 69 6d 70 6c 79 0d 09 |very is |simply..|
|000003b0| 61 20 6d 61 74 74 65 72 | 20 6f 66 20 69 6e 73 65 |a matter| of inse|
|000003c0| 72 74 69 6e 67 20 66 69 | 72 73 74 20 79 6f 75 72 |rting fi|rst your|
|000003d0| 20 6c 65 76 65 6c 20 39 | 20 64 75 6d 70 20 64 69 | level 9| dump di|
|000003e0| 73 6b 73 2c 20 74 68 65 | 6e 20 74 68 65 20 6c 65 |sks, the|n the le|
|000003f0| 76 65 6c 20 38 2c 0d 09 | 74 68 65 6e 20 6c 65 76 |vel 8,..|then lev|
|00000400| 65 6c 20 37 20 61 6e 64 | 20 73 6f 20 6f 6e 20 74 |el 7 and| so on t|
|00000410| 68 72 6f 75 67 68 20 6c | 65 76 65 6c 20 30 2e 0d |hrough l|evel 0..|
|00000420| 7d 0d 0d 55 73 65 73 20 | 4d 61 63 49 6e 74 66 2c |}..Uses |MacIntf,|
|00000430| 20 48 46 53 3b 0d 0d 7b | 24 41 2b 7d 20 7b 20 69 | HFS;..{|$A+} { i|
|00000440| 6e 63 6c 75 64 65 20 63 | 6f 64 65 20 61 73 20 63 |nclude c|ode as c|
|00000450| 6f 6d 6d 65 6e 74 73 20 | 69 6e 20 61 73 73 65 6d |omments |in assem|
|00000460| 62 6c 79 20 67 65 6e 65 | 72 61 74 69 6f 6e 20 7d |bly gene|ration }|
|00000470| 0d 7b 24 42 2b 7d 20 7b | 20 28 42 75 6e 64 6c 65 |.{$B+} {| (Bundle|
|00000480| 20 42 69 74 29 20 7d 0d | 7b 24 54 20 41 50 50 4c | Bit) }.|{$T APPL|
|00000490| 20 52 53 54 72 20 7d 20 | 0d 7b 24 4f 2d 7d 20 7b | RSTr } |.{$O-} {|
|000004a0| 20 4f 76 65 72 66 6c 6f | 77 20 63 68 65 63 6b 73 | Overflo|w checks|
|000004b0| 20 7d 0d 7b 24 52 2d 7d | 20 7b 20 52 61 6e 67 65 | }.{$R-}| { Range|
|000004c0| 20 43 68 65 63 6b 73 20 | 7d 0d 7b 24 55 20 27 2f | Checks |}.{$U '/|
|000004d0| 49 4e 43 4c 55 44 45 20 | 4d 61 63 72 65 73 74 2f |INCLUDE |Macrest/|
|000004e0| 52 53 52 43 27 7d 0d 0d | 0d 43 6f 6e 73 74 0d 09 |RSRC'}..|.Const..|
|000004f0| 48 44 4e 61 6d 65 20 3d | 20 27 24 24 48 44 27 3b |HDName =| '$$HD';|
|00000500| 0d 09 44 65 73 6b 54 6f | 70 20 3d 20 27 44 65 73 |..DeskTo|p = 'Des|
|00000510| 6b 74 6f 70 27 3b 0d 09 | 49 6e 69 74 65 64 20 3d |ktop';..|Inited =|
|00000520| 20 24 30 31 30 30 3b 0d | 0d 56 61 72 0d 09 43 61 | $0100;.|.Var..Ca|
|00000530| 74 53 74 72 69 6e 67 09 | 09 09 3a 20 53 74 72 32 |tString.|..: Str2|
|00000540| 35 35 3b 0d 09 46 6c 6f | 70 70 79 56 6f 6c 2c 20 |55;..Flo|ppyVol, |
|00000550| 48 61 72 64 56 6f 6c 09 | 3a 20 49 6e 74 65 67 65 |HardVol.|: Intege|
|00000560| 72 3b 0d 09 42 75 66 66 | 65 72 50 74 72 09 09 09 |r;..Buff|erPtr...|
|00000570| 3a 20 50 74 72 3b 0d 09 | 42 75 66 73 69 7a 65 09 |: Ptr;..|Bufsize.|
|00000580| 09 09 09 3a 20 4c 6f 6e | 67 49 6e 74 3b 0d 09 51 |...: Lon|gInt;..Q|
|00000590| 75 69 74 74 69 6e 67 09 | 09 09 3a 20 42 6f 6f 6c |uitting.|..: Bool|
|000005a0| 65 61 6e 3b 0d 09 6d 79 | 43 50 42 09 09 09 09 3a |ean;..my|CPB....:|
|000005b0| 20 43 49 6e 66 6f 50 42 | 52 65 63 3b 0d 09 45 72 | CInfoPB|Rec;..Er|
|000005c0| 72 09 09 09 09 09 3a 20 | 4f 53 65 72 72 3b 0d 09 |r.....: |OSerr;..|
|000005d0| 4e 6f 74 49 6e 69 74 65 | 64 09 09 09 3a 20 49 6e |NotInite|d...: In|
|000005e0| 74 65 67 65 72 3b 0d 09 | 54 69 63 6b 73 09 09 09 |teger;..|Ticks...|
|000005f0| 09 3a 20 4c 6f 6e 67 49 | 6e 74 3b 0d 0d 7b 20 2d |.: LongI|nt;..{ -|
|00000600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000640| 2d 2d 2d 20 20 7d 0d 7b | 20 2d 2d 2d 2d 2d 2d 2d |---  }.{| -------|
|00000650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000660| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000670| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000680| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 20 7d |--------|-----  }|
|00000690| 0d 7b 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.{ -----|--------|
|000006a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006d0| 2d 2d 2d 2d 2d 2d 2d 20 | 20 7d 0d 0d 46 75 6e 63 |------- | }..Func|
|000006e0| 74 69 6f 6e 20 4d 79 42 | 69 74 54 73 74 20 28 41 |tion MyB|itTst (A|
|000006f0| 50 74 72 3a 20 50 74 72 | 3b 20 20 41 42 69 74 3a |Ptr: Ptr|;  ABit:|
|00000700| 20 49 6e 74 65 67 65 72 | 29 3a 20 42 6f 6f 6c 65 | Integer|): Boole|
|00000710| 61 6e 3b 0d 56 61 72 0d | 09 4c 6f 77 65 72 3a 20 |an;.Var.|.Lower: |
|00000720| 49 6e 74 65 67 65 72 3b | 0d 42 65 67 69 6e 0d 09 |Integer;|.Begin..|
|00000730| 4c 6f 77 65 72 20 3a 3d | 20 41 62 69 74 20 4d 6f |Lower :=| Abit Mo|
|00000740| 64 20 38 3b 0d 09 4d 79 | 42 69 74 54 73 74 20 3a |d 8;..My|BitTst :|
|00000750| 3d 20 42 69 74 54 73 74 | 20 28 41 70 74 72 2c 20 |= BitTst| (Aptr, |
|00000760| 28 41 62 69 74 20 2d 20 | 4c 6f 77 65 72 29 20 2b |(Abit - |Lower) +|
|00000770| 20 28 37 20 2d 20 4c 6f | 77 65 72 29 20 29 3b 0d | (7 - Lo|wer) );.|
|00000780| 45 6e 64 3b 0d 0d 50 52 | 4f 43 45 44 55 52 45 20 |End;..PR|OCEDURE |
|00000790| 43 6f 70 79 46 6f 72 6b | 20 28 46 69 6c 65 31 2c |CopyFork| (File1,|
|000007a0| 20 46 69 6c 65 32 20 3a | 20 49 6e 74 65 67 65 72 | File2 :| Integer|
|000007b0| 3b 20 20 4c 20 3a 20 4c | 6f 6e 67 49 6e 74 29 3b |;  L : L|ongInt);|
|000007c0| 0d 56 61 72 0d 09 54 73 | 69 7a 65 20 3a 20 4c 6f |.Var..Ts|ize : Lo|
|000007d0| 6e 67 49 6e 74 3b 0d 42 | 65 67 69 6e 0d 09 45 72 |ngInt;.B|egin..Er|
|000007e0| 72 20 3a 3d 20 4e 6f 45 | 72 72 3b 0d 09 57 68 69 |r := NoE|rr;..Whi|
|000007f0| 6c 65 20 28 4c 20 3e 20 | 30 29 20 61 6e 64 20 28 |le (L > |0) and (|
|00000800| 45 72 72 20 3d 20 4e 6f | 45 72 72 29 20 64 6f 20 |Err = No|Err) do |
|00000810| 62 65 67 69 6e 3b 0d 09 | 09 69 66 20 4c 20 3c 20 |begin;..|.if L < |
|00000820| 42 75 66 73 69 7a 65 20 | 74 68 65 6e 20 54 73 69 |Bufsize |then Tsi|
|00000830| 7a 65 20 3a 3d 20 4c 0d | 09 09 65 6c 73 65 20 54 |ze := L.|..else T|
|00000840| 73 69 7a 65 20 3a 3d 20 | 42 75 66 73 69 7a 65 3b |size := |Bufsize;|
|00000850| 0d 09 09 45 72 72 20 3a | 3d 20 46 53 72 65 61 64 |...Err :|= FSread|
|00000860| 20 28 46 69 6c 65 31 2c | 20 54 73 69 7a 65 2c 20 | (File1,| Tsize, |
|00000870| 42 75 66 66 65 72 50 74 | 72 29 3b 0d 09 09 49 66 |BufferPt|r);...If|
|00000880| 20 45 72 72 20 3c 3e 20 | 4e 4f 45 72 72 20 74 68 | Err <> |NOErr th|
|00000890| 65 6e 0d 09 09 09 57 72 | 69 74 65 4c 6e 20 28 27 |en....Wr|iteLn ('|
|000008a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 52 65 61 64 |********|****Read|
|000008b0| 20 65 72 72 6f 72 3a 20 | 27 2c 20 45 72 72 29 0d | error: |', Err).|
|000008c0| 09 09 65 6c 73 65 20 62 | 65 67 69 6e 3b 0d 09 09 |..else b|egin;...|
|000008d0| 09 45 72 72 20 3a 3d 20 | 46 53 57 72 69 74 65 20 |.Err := |FSWrite |
|000008e0| 28 46 69 6c 65 32 2c 20 | 54 73 69 7a 65 2c 20 42 |(File2, |Tsize, B|
|000008f0| 75 66 66 65 72 50 74 72 | 29 3b 0d 09 09 09 49 66 |ufferPtr|);....If|
|00000900| 20 45 72 72 20 3c 3e 20 | 4e 4f 45 72 72 20 74 68 | Err <> |NOErr th|
|00000910| 65 6e 0d 09 09 09 09 57 | 72 69 74 65 4c 6e 20 28 |en.....W|riteLn (|
|00000920| 27 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 57 |'*******|*******W|
|00000930| 72 69 74 65 20 65 72 72 | 6f 72 3a 20 27 2c 20 45 |rite err|or: ', E|
|00000940| 72 72 29 3b 0d 09 09 09 | 4c 20 3a 3d 20 4c 20 2d |rr);....|L := L -|
|00000950| 20 54 73 69 7a 65 3b 0d | 09 09 65 6e 64 3b 0d 09 | Tsize;.|..end;..|
|00000960| 65 6e 64 3b 0d 65 6e 64 | 3b 0d 0d 7b 20 2d 2d 2d |end;.end|;..{ ---|
|00000970| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000980| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009b0| 2d 20 20 7d 0d 0d 50 52 | 4f 43 45 44 55 52 45 20 |-  }..PR|OCEDURE |
|000009c0| 20 43 6f 70 79 46 69 6c | 65 20 28 54 68 65 4e 61 | CopyFil|e (TheNa|
|000009d0| 6d 65 3a 20 53 54 52 32 | 35 35 29 3b 0d 56 61 72 |me: STR2|55);.Var|
|000009e0| 0d 09 4c 09 09 09 09 3a | 20 4c 6f 6e 67 49 6e 74 |..L....:| LongInt|
|000009f0| 3b 0d 09 46 69 6c 65 31 | 2c 20 46 69 6c 65 32 09 |;..File1|, File2.|
|00000a00| 3a 20 49 6e 74 65 67 65 | 72 3b 0d 09 50 42 09 09 |: Intege|r;..PB..|
|00000a10| 09 09 3a 20 50 61 72 61 | 6d 42 6c 6f 63 6b 52 65 |..: Para|mBlockRe|
|00000a20| 63 3b 0d 09 46 4e 61 6d | 65 09 09 09 3a 20 53 74 |c;..FNam|e...: St|
|00000a30| 72 32 35 35 3b 0d 42 65 | 67 69 6e 0d 09 46 4e 61 |r255;.Be|gin..FNa|
|00000a40| 6d 65 20 3a 3d 20 43 6f | 6e 63 61 74 20 28 43 61 |me := Co|ncat (Ca|
|00000a50| 74 53 74 72 69 6e 67 2c | 20 54 68 65 4e 61 6d 65 |tString,| TheName|
|00000a60| 29 3b 0d 09 45 72 72 20 | 3a 3d 20 43 72 65 61 74 |);..Err |:= Creat|
|00000a70| 65 20 28 46 4e 61 6d 65 | 2c 20 48 61 72 64 56 6f |e (FName|, HardVo|
|00000a80| 6c 2c 20 27 20 20 20 20 | 27 2c 20 27 20 20 20 20 |l, '    |', '    |
|00000a90| 27 29 3b 0d 09 49 66 20 | 45 72 72 20 3d 20 4e 6f |');..If |Err = No|
|00000aa0| 45 72 72 20 74 68 65 6e | 0d 09 09 57 72 69 74 65 |Err then|...Write|
|00000ab0| 4c 6e 20 28 27 43 72 65 | 61 74 65 20 27 2c 20 46 |Ln ('Cre|ate ', F|
|00000ac0| 4e 61 6d 65 29 0d 09 65 | 6c 73 65 20 62 65 67 69 |Name)..e|lse begi|
|00000ad0| 6e 0d 09 09 57 72 69 74 | 65 4c 6e 20 28 27 53 6b |n...Writ|eLn ('Sk|
|00000ae0| 69 70 20 20 20 27 2c 20 | 46 4e 61 6d 65 29 3b 0d |ip   ', |FName);.|
|00000af0| 09 09 45 58 49 54 20 28 | 43 6f 70 79 46 69 6c 65 |..EXIT (|CopyFile|
|00000b00| 29 3b 09 09 7b 65 78 69 | 74 20 69 66 20 66 69 6c |);..{exi|t if fil|
|00000b10| 65 20 65 78 69 73 74 73 | 7d 0d 09 65 6e 64 3b 0d |e exists|}..end;.|
|00000b20| 0d 09 57 69 74 68 20 50 | 42 20 64 6f 20 62 65 67 |..With P|B do beg|
|00000b30| 69 6e 3b 09 09 09 7b 20 | 43 6f 70 79 20 46 69 6c |in;...{ |Copy Fil|
|00000b40| 65 20 41 74 74 72 69 62 | 75 74 65 73 20 7d 0d 09 |e Attrib|utes }..|
|00000b50| 09 69 6f 56 72 65 66 4e | 75 6d 20 3a 3d 20 46 6c |.ioVrefN|um := Fl|
|00000b60| 6f 70 70 79 56 6f 6c 3b | 0d 09 09 69 6f 4e 61 6d |oppyVol;|...ioNam|
|00000b70| 65 50 74 72 20 3a 3d 20 | 40 46 6e 61 6d 65 3b 0d |ePtr := |@Fname;.|
|00000b80| 09 09 69 6f 46 44 69 72 | 49 6e 64 65 78 20 3a 3d |..ioFDir|Index :=|
|00000b90| 20 30 3b 0d 09 09 45 72 | 72 20 3a 3d 20 50 42 47 | 0;...Er|r := PBG|
|00000ba0| 65 74 46 49 6e 66 6f 20 | 28 40 50 42 2c 20 46 41 |etFInfo |(@PB, FA|
|00000bb0| 4c 53 45 29 3b 0d 09 09 | 69 6f 46 6c 46 6e 64 72 |LSE);...|ioFlFndr|
|00000bc0| 49 6e 66 6f 2e 66 64 66 | 6c 61 67 73 20 3a 3d 20 |Info.fdf|lags := |
|00000bd0| 42 69 74 41 6e 64 20 28 | 69 6f 46 6c 46 6e 64 72 |BitAnd (|ioFlFndr|
|00000be0| 49 6e 66 6f 2e 66 64 66 | 6c 61 67 73 2c 20 4e 6f |Info.fdf|lags, No|
|00000bf0| 74 49 6e 69 74 65 64 29 | 3b 0d 09 09 09 7b 20 6d |tInited)|;....{ m|
|00000c00| 61 6b 65 20 73 75 72 65 | 20 6e 6f 74 20 49 6e 69 |ake sure| not Ini|
|00000c10| 74 65 64 20 7d 0d 09 09 | 69 6f 56 72 65 66 4e 75 |ted }...|ioVrefNu|
|00000c20| 6d 20 3a 3d 20 48 61 72 | 64 56 6f 6c 3b 0d 09 09 |m := Har|dVol;...|
|00000c30| 45 72 72 20 3a 3d 20 50 | 42 53 65 74 46 49 6e 66 |Err := P|BSetFInf|
|00000c40| 6f 20 28 40 50 42 2c 20 | 46 41 4c 53 45 29 3b 0d |o (@PB, |FALSE);.|
|00000c50| 09 65 6e 64 3b 0d 0d 09 | 09 7b 20 4f 4b 2e 20 4e |.end;...|.{ OK. N|
|00000c60| 6f 77 20 77 65 20 63 6f | 70 79 20 74 68 65 20 64 |ow we co|py the d|
|00000c70| 61 74 61 20 7d 0d 0d 09 | 45 72 72 20 3a 3d 20 46 |ata }...|Err := F|
|00000c80| 53 6f 70 65 6e 20 28 46 | 4e 61 6d 65 2c 20 46 6c |Sopen (F|Name, Fl|
|00000c90| 6f 70 70 79 56 6f 6c 2c | 20 46 69 6c 65 31 29 3b |oppyVol,| File1);|
|00000ca0| 0d 09 45 72 72 20 3a 3d | 20 47 65 74 45 4f 46 20 |..Err :=| GetEOF |
|00000cb0| 28 46 69 6c 65 31 2c 20 | 4c 29 3b 0d 09 49 66 20 |(File1, |L);..If |
|00000cc0| 4c 20 3c 3e 20 30 20 74 | 68 65 6e 20 62 65 67 69 |L <> 0 t|hen begi|
|00000cd0| 6e 3b 09 09 7b 6d 75 73 | 74 20 62 65 20 73 6f 6d |n;..{mus|t be som|
|00000ce0| 65 20 64 61 74 61 7d 0d | 09 09 45 72 72 20 3a 3d |e data}.|..Err :=|
|00000cf0| 20 46 53 6f 70 65 6e 20 | 28 46 4e 61 6d 65 2c 20 | FSopen |(FName, |
|00000d00| 48 61 72 64 56 6f 6c 2c | 20 46 69 6c 65 32 29 3b |HardVol,| File2);|
|00000d10| 0d 09 09 43 6f 70 79 46 | 6f 72 6b 20 28 46 69 6c |...CopyF|ork (Fil|
|00000d20| 65 31 2c 20 46 69 6c 65 | 32 2c 20 4c 29 3b 0d 09 |e1, File|2, L);..|
|00000d30| 09 45 72 72 20 3a 3d 20 | 46 53 63 6c 6f 73 65 20 |.Err := |FSclose |
|00000d40| 28 46 69 6c 65 32 29 3b | 0d 09 45 6e 64 3b 0d 09 |(File2);|..End;..|
|00000d50| 45 72 72 20 3a 3d 20 46 | 53 63 6c 6f 73 65 20 28 |Err := F|Sclose (|
|00000d60| 46 69 6c 65 31 29 3b 0d | 0d 09 09 7b 20 4f 6b 2e |File1);.|...{ Ok.|
|00000d70| 20 20 4e 6f 77 20 77 65 | 20 63 6f 70 79 20 74 68 |  Now we| copy th|
|00000d80| 65 20 72 65 73 6f 75 72 | 63 65 20 66 6f 72 6b 20 |e resour|ce fork |
|00000d90| 7d 0d 0d 09 45 72 72 20 | 3a 3d 20 4f 70 65 6e 52 |}...Err |:= OpenR|
|00000da0| 46 20 28 46 4e 61 6d 65 | 2c 20 46 6c 6f 70 70 79 |F (FName|, Floppy|
|00000db0| 56 6f 6c 2c 20 46 69 6c | 65 31 29 3b 0d 09 45 72 |Vol, Fil|e1);..Er|
|00000dc0| 72 20 3a 3d 20 47 65 74 | 45 4f 46 20 28 46 69 6c |r := Get|EOF (Fil|
|00000dd0| 65 31 2c 20 4c 29 3b 0d | 09 49 66 20 4c 20 3c 3e |e1, L);.|.If L <>|
|00000de0| 20 30 20 74 68 65 6e 20 | 62 65 67 69 6e 3b 09 09 | 0 then |begin;..|
|00000df0| 7b 6d 75 73 74 20 62 65 | 20 73 6f 6d 65 20 64 61 |{must be| some da|
|00000e00| 74 61 7d 0d 09 09 45 72 | 72 20 3a 3d 20 4f 70 65 |ta}...Er|r := Ope|
|00000e10| 6e 52 46 20 28 46 4e 61 | 6d 65 2c 20 48 61 72 64 |nRF (FNa|me, Hard|
|00000e20| 56 6f 6c 2c 20 46 69 6c | 65 32 29 3b 0d 09 09 43 |Vol, Fil|e2);...C|
|00000e30| 6f 70 79 46 6f 72 6b 20 | 28 46 69 6c 65 31 2c 20 |opyFork |(File1, |
|00000e40| 46 69 6c 65 32 2c 20 4c | 29 3b 0d 09 09 45 72 72 |File2, L|);...Err|
|00000e50| 20 3a 3d 20 46 53 63 6c | 6f 73 65 20 28 46 69 6c | := FScl|ose (Fil|
|00000e60| 65 32 29 3b 0d 09 45 6e | 64 3b 0d 09 45 72 72 20 |e2);..En|d;..Err |
|00000e70| 3a 3d 20 46 53 63 6c 6f | 73 65 20 28 46 69 6c 65 |:= FSclo|se (File|
|00000e80| 31 29 3b 0d 45 6e 64 3b | 0d 0d 7b 20 2d 2d 2d 2d |1);.End;|..{ ----|
|00000e90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000eb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ec0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ed0| 20 20 7d 0d 0d 50 72 6f | 63 65 64 75 72 65 20 20 |  }..Pro|cedure  |
|00000ee0| 4d 61 6b 65 46 6f 6c 64 | 65 72 3b 0d 56 61 72 0d |MakeFold|er;.Var.|
|00000ef0| 09 48 50 42 20 3a 20 48 | 50 61 72 61 6d 42 6c 6f |.HPB : H|ParamBlo|
|00000f00| 63 6b 52 65 63 3b 0d 42 | 65 67 69 6e 0d 09 48 50 |ckRec;.B|egin..HP|
|00000f10| 42 2e 69 6f 4e 61 6d 65 | 50 74 72 20 3a 3d 20 40 |B.ioName|Ptr := @|
|00000f20| 43 61 74 53 74 72 69 6e | 67 3b 0d 09 48 50 42 2e |CatStrin|g;..HPB.|
|00000f30| 69 6f 56 72 65 66 4e 75 | 6d 20 3a 3d 20 48 61 72 |ioVrefNu|m := Har|
|00000f40| 64 56 6f 6c 3b 0d 09 45 | 72 72 20 3a 3d 20 50 42 |dVol;..E|rr := PB|
|00000f50| 44 69 72 43 72 65 61 74 | 65 20 28 40 48 50 42 2c |DirCreat|e (@HPB,|
|00000f60| 20 46 41 4c 53 45 29 3b | 0d 09 57 72 69 74 65 4c | FALSE);|..WriteL|
|00000f70| 6e 20 28 27 46 6f 6c 64 | 65 72 20 27 2c 20 43 61 |n ('Fold|er ', Ca|
|00000f80| 74 53 74 72 69 6e 67 29 | 3b 0d 09 43 61 74 53 74 |tString)|;..CatSt|
|00000f90| 72 69 6e 67 20 3a 3d 20 | 43 6f 6e 63 61 74 20 28 |ring := |Concat (|
|00000fa0| 43 61 74 53 74 72 69 6e | 67 2c 20 27 3a 27 29 3b |CatStrin|g, ':');|
|00000fb0| 0d 45 6e 64 3b 0d 0d 7b | 20 2d 2d 2d 2d 2d 2d 2d |.End;..{| -------|
|00000fc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000fd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 20 7d |--------|-----  }|
|00001000| 0d 7b 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.{ -----|--------|
|00001010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001040| 2d 2d 2d 2d 2d 2d 2d 20 | 20 7d 0d 7b 20 2d 2d 2d |------- | }.{ ---|
|00001050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001090| 2d 20 20 7d 0d 0d 50 52 | 4f 43 45 44 55 52 45 20 |-  }..PR|OCEDURE |
|000010a0| 4d 6f 75 6e 74 31 3b 0d | 76 61 72 0d 09 56 6f 6c |Mount1;.|var..Vol|
|000010b0| 4e 61 6d 65 09 09 09 3a | 20 53 74 72 32 35 35 3b |Name...:| Str255;|
|000010c0| 0d 09 54 68 65 56 52 65 | 66 09 09 09 3a 20 49 6e |..TheVRe|f...: In|
|000010d0| 74 65 67 65 72 3b 0d 09 | 46 72 65 65 09 09 09 3a |teger;..|Free...:|
|000010e0| 20 4c 6f 6e 67 49 6e 74 | 3b 0d 09 4d 6f 75 6e 74 | LongInt|;..Mount|
|000010f0| 65 64 09 09 09 3a 20 42 | 6f 6f 6c 65 61 6e 3b 0d |ed...: B|oolean;.|
|00001100| 09 54 68 65 45 76 65 6e | 74 09 09 3a 20 45 76 65 |.TheEven|t..: Eve|
|00001110| 6e 74 52 65 63 6f 72 64 | 3b 0d 09 44 72 69 76 65 |ntRecord|;..Drive|
|00001120| 2c 20 53 74 61 74 75 73 | 09 3a 20 49 6e 74 65 67 |, Status|.: Integ|
|00001130| 65 72 3b 0d 62 65 67 69 | 6e 0d 09 56 6f 6c 4e 61 |er;.begi|n..VolNa|
|00001140| 6d 65 20 3a 3d 20 27 27 | 3b 0d 09 45 72 72 20 3a |me := ''|;..Err :|
|00001150| 3d 20 47 65 74 56 49 6e | 66 6f 28 31 2c 20 40 56 |= GetVIn|fo(1, @V|
|00001160| 6f 6c 4e 61 6d 65 2c 20 | 54 68 65 56 72 65 66 2c |olName, |TheVref,|
|00001170| 20 46 72 65 65 29 3b 0d | 09 69 66 20 45 72 72 20 | Free);.|.if Err |
|00001180| 3d 20 4e 6f 45 72 72 20 | 74 68 65 6e 20 62 65 67 |= NoErr |then beg|
|00001190| 69 6e 09 7b 74 68 65 72 | 65 20 69 73 20 61 20 64 |in.{ther|e is a d|
|000011a0| 69 73 6b 20 69 6e 20 69 | 6e 74 65 72 6e 61 6c 20 |isk in i|nternal |
|000011b0| 64 72 69 76 65 7d 0d 09 | 09 45 72 72 20 3a 3d 20 |drive}..|.Err := |
|000011c0| 55 6e 6d 6f 75 6e 74 56 | 6f 6c 20 28 6e 69 6c 2c |UnmountV|ol (nil,|
|000011d0| 20 54 68 65 56 72 65 66 | 29 3b 0d 09 09 45 72 72 | TheVref|);...Err|
|000011e0| 20 3a 3d 20 44 69 73 6b | 45 6a 65 63 74 20 28 31 | := Disk|Eject (1|
|000011f0| 29 3b 0d 09 65 6e 64 3b | 0d 09 46 6c 75 73 68 45 |);..end;|..FlushE|
|00001200| 76 65 6e 74 73 20 28 45 | 76 65 72 79 45 76 65 6e |vents (E|veryEven|
|00001210| 74 2c 20 30 29 3b 0d 09 | 4d 6f 75 6e 74 65 64 20 |t, 0);..|Mounted |
|00001220| 3a 3d 20 46 41 4c 53 45 | 3b 0d 09 57 72 69 74 65 |:= FALSE|;..Write|
|00001230| 4c 6e 20 28 27 49 6e 73 | 65 72 74 20 6e 65 78 74 |Ln ('Ins|ert next|
|00001240| 20 62 61 63 6b 75 70 20 | 64 69 73 6b 2e 20 20 43 | backup |disk.  C|
|00001250| 6c 69 63 6b 20 6d 6f 75 | 73 65 20 74 6f 20 66 69 |lick mou|se to fi|
|00001260| 6e 69 73 68 27 29 3b 0d | 09 57 68 69 6c 65 20 28 |nish');.|.While (|
|00001270| 6e 6f 74 20 4d 6f 75 6e | 74 65 64 29 20 61 6e 64 |not Moun|ted) and|
|00001280| 20 28 6e 6f 74 20 71 75 | 69 74 74 69 6e 67 29 20 | (not qu|itting) |
|00001290| 64 6f 20 62 65 67 69 6e | 0d 09 09 69 66 20 47 65 |do begin|...if Ge|
|000012a0| 74 4e 65 78 74 45 76 65 | 6e 74 20 28 44 69 73 6b |tNextEve|nt (Disk|
|000012b0| 4d 61 73 6b 2b 4d 44 6f | 77 6e 4d 61 73 6b 2c 20 |Mask+MDo|wnMask, |
|000012c0| 54 68 65 45 76 65 6e 74 | 29 20 74 68 65 6e 20 62 |TheEvent|) then b|
|000012d0| 65 67 69 6e 0d 09 09 09 | 69 66 20 54 68 65 45 76 |egin....|if TheEv|
|000012e0| 65 6e 74 2e 77 68 61 74 | 20 3d 20 4d 6f 75 73 65 |ent.what| = Mouse|
|000012f0| 44 6f 77 6e 20 74 68 65 | 6e 0d 09 09 09 09 51 75 |Down the|n.....Qu|
|00001300| 69 74 74 69 6e 67 20 3a | 3d 20 54 52 55 45 0d 09 |itting :|= TRUE..|
|00001310| 09 09 45 6c 73 65 20 62 | 65 67 69 6e 0d 09 09 09 |..Else b|egin....|
|00001320| 09 44 72 69 76 65 20 3a | 3d 20 4c 6f 57 6f 72 64 |.Drive :|= LoWord|
|00001330| 20 28 54 68 65 45 76 65 | 6e 74 2e 4d 65 73 73 61 | (TheEve|nt.Messa|
|00001340| 67 65 29 3b 0d 09 09 09 | 09 53 74 61 74 75 73 20 |ge);....|.Status |
|00001350| 3a 3d 20 48 69 57 6f 72 | 64 20 28 54 68 65 45 76 |:= HiWor|d (TheEv|
|00001360| 65 6e 74 2e 4d 65 73 73 | 61 67 65 29 3b 0d 09 09 |ent.Mess|age);...|
|00001370| 09 09 49 66 20 53 74 61 | 74 75 73 20 3c 3e 20 30 |..If Sta|tus <> 0|
|00001380| 20 74 68 65 6e 20 62 65 | 67 69 6e 0d 09 09 09 09 | then be|gin.....|
|00001390| 09 57 72 69 74 65 4c 6e | 20 28 27 44 69 73 6b 20 |.WriteLn| ('Disk |
|000013a0| 63 61 6e 27 27 74 20 62 | 65 20 72 65 61 64 2d 2d |can''t b|e read--|
|000013b0| 74 72 79 20 61 67 61 69 | 6e 20 3a 27 2c 20 53 74 |try agai|n :', St|
|000013c0| 61 74 75 73 29 3b 0d 09 | 09 09 09 09 45 72 72 20 |atus);..|....Err |
|000013d0| 3a 3d 20 44 69 73 6b 45 | 6a 65 63 74 20 28 31 29 |:= DiskE|ject (1)|
|000013e0| 3b 0d 09 09 09 09 65 6e | 64 0d 09 09 09 09 65 6c |;.....en|d.....el|
|000013f0| 73 65 20 69 66 20 44 72 | 69 76 65 20 3c 3e 20 31 |se if Dr|ive <> 1|
|00001400| 20 74 68 65 6e 20 62 65 | 67 69 6e 0d 09 09 09 09 | then be|gin.....|
|00001410| 09 57 72 69 74 65 4c 6e | 20 28 27 49 20 63 61 6e |.WriteLn| ('I can|
|00001420| 20 6f 6e 6c 79 20 75 73 | 65 20 74 68 65 20 69 6e | only us|e the in|
|00001430| 74 65 72 6e 61 6c 20 64 | 72 69 76 65 2d 73 6f 72 |ternal d|rive-sor|
|00001440| 72 79 27 29 3b 0d 09 09 | 09 09 09 56 6f 6c 4e 61 |ry');...|...VolNa|
|00001450| 6d 65 20 3a 3d 20 27 27 | 3b 0d 09 09 09 09 09 45 |me := ''|;......E|
|00001460| 72 72 20 3a 3d 20 47 65 | 74 56 49 6e 66 6f 28 44 |rr := Ge|tVInfo(D|
|00001470| 72 69 76 65 2c 20 40 56 | 6f 6c 4e 61 6d 65 2c 20 |rive, @V|olName, |
|00001480| 54 68 65 56 72 65 66 2c | 20 46 72 65 65 29 3b 0d |TheVref,| Free);.|
|00001490| 09 09 09 09 09 45 72 72 | 20 3a 3d 20 55 6e 6d 6f |.....Err| := Unmo|
|000014a0| 75 6e 74 56 6f 6c 20 28 | 6e 69 6c 2c 20 54 68 65 |untVol (|nil, The|
|000014b0| 56 72 65 66 29 3b 0d 09 | 09 09 09 65 6e 64 0d 09 |Vref);..|...end..|
|000014c0| 09 09 09 65 6c 73 65 20 | 62 65 67 69 6e 0d 09 09 |...else |begin...|
|000014d0| 09 09 09 4d 6f 75 6e 74 | 65 64 20 3a 3d 20 54 72 |...Mount|ed := Tr|
|000014e0| 75 65 3b 0d 09 09 09 09 | 09 45 72 72 20 3a 3d 20 |ue;.....|.Err := |
|000014f0| 47 65 74 56 49 6e 66 6f | 28 31 2c 20 40 56 6f 6c |GetVInfo|(1, @Vol|
|00001500| 4e 61 6d 65 2c 20 46 6c | 6f 70 70 79 56 6f 6c 2c |Name, Fl|oppyVol,|
|00001510| 20 46 72 65 65 29 3b 0d | 09 09 09 09 65 6e 64 3b | Free);.|....end;|
|00001520| 0d 09 09 09 65 6e 64 3b | 0d 09 09 65 6e 64 3b 09 |....end;|...end;.|
|00001530| 09 0d 09 65 6e 64 3b 0d | 65 6e 64 3b 0d 0d 50 52 |...end;.|end;..PR|
|00001540| 4f 43 45 44 55 52 45 20 | 47 65 74 48 61 72 64 44 |OCEDURE |GetHardD|
|00001550| 69 73 6b 3b 0d 56 61 72 | 0d 09 56 6f 6c 4e 61 6d |isk;.Var|..VolNam|
|00001560| 65 09 3a 20 53 74 72 32 | 35 35 3b 0d 09 46 72 65 |e.: Str2|55;..Fre|
|00001570| 65 09 3a 20 4c 6f 6e 67 | 49 6e 74 3b 0d 09 44 72 |e.: Long|Int;..Dr|
|00001580| 69 76 65 09 3a 20 49 6e | 74 65 67 65 72 3b 0d 62 |ive.: In|teger;.b|
|00001590| 65 67 69 6e 0d 09 56 6f | 6c 4e 61 6d 65 20 3a 3d |egin..Vo|lName :=|
|000015a0| 20 27 27 3b 0d 09 44 72 | 69 76 65 20 3a 3d 20 31 | '';..Dr|ive := 1|
|000015b0| 3b 0d 09 57 68 69 6c 65 | 20 28 44 72 69 76 65 20 |;..While| (Drive |
|000015c0| 3c 20 32 35 29 20 61 6e | 64 20 28 56 6f 6c 4e 61 |< 25) an|d (VolNa|
|000015d0| 6d 65 20 3c 3e 20 48 44 | 4e 61 6d 65 29 20 64 6f |me <> HD|Name) do|
|000015e0| 20 62 65 67 69 6e 0d 09 | 09 45 72 72 20 3a 3d 20 | begin..|.Err := |
|000015f0| 47 65 74 56 49 6e 66 6f | 20 28 44 72 69 76 65 2c |GetVInfo| (Drive,|
|00001600| 20 40 56 6f 6c 4e 61 6d | 65 2c 20 48 61 72 64 56 | @VolNam|e, HardV|
|00001610| 6f 6c 2c 20 46 72 65 65 | 29 3b 0d 09 09 44 72 69 |ol, Free|);...Dri|
|00001620| 76 65 20 3a 3d 20 44 72 | 69 76 65 20 2b 20 31 3b |ve := Dr|ive + 1;|
|00001630| 0d 09 65 6e 64 3b 0d 09 | 69 66 20 56 6f 6c 4e 61 |..end;..|if VolNa|
|00001640| 6d 65 20 3c 3e 20 48 44 | 4e 61 6d 65 20 74 68 65 |me <> HD|Name the|
|00001650| 6e 20 62 65 67 69 6e 3b | 0d 09 09 57 72 69 74 65 |n begin;|...Write|
|00001660| 4c 6e 20 28 27 54 68 65 | 20 64 69 73 6b 20 74 6f |Ln ('The| disk to|
|00001670| 20 62 65 20 72 65 63 6f | 76 65 72 65 64 20 4d 55 | be reco|vered MU|
|00001680| 53 54 20 62 65 20 6e 61 | 6d 65 64 20 22 27 2c 20 |ST be na|med "', |
|00001690| 48 44 4e 61 6d 65 2c 0d | 09 09 09 09 20 20 27 22 |HDName,.|....  '"|
|000016a0| 2e 20 20 52 65 6e 61 6d | 65 20 69 74 20 61 6e 64 |.  Renam|e it and|
|000016b0| 20 74 72 79 20 61 67 61 | 69 6e 21 27 29 3b 0d 09 | try aga|in!');..|
|000016c0| 09 44 65 6c 61 79 20 28 | 33 30 30 2c 20 54 69 63 |.Delay (|300, Tic|
|000016d0| 6b 73 29 3b 0d 09 09 45 | 78 69 74 54 6f 53 68 65 |ks);...E|xitToShe|
|000016e0| 6c 6c 3b 0d 09 65 6e 64 | 3b 0d 65 6e 64 3b 0d 0d |ll;..end|;.end;..|
|000016f0| 50 52 4f 43 45 44 55 52 | 45 20 45 6e 75 6d 65 72 |PROCEDUR|E Enumer|
|00001700| 61 74 65 3b 0d 56 41 52 | 0d 09 65 72 72 2c 20 56 |ate;.VAR|..err, V|
|00001710| 65 72 72 3a 20 20 20 4f | 53 65 72 72 3b 0d 09 54 |err:   O|Serr;..T|
|00001720| 6f 74 61 6c 46 69 6c 65 | 73 2c 20 54 6f 74 61 6c |otalFile|s, Total|
|00001730| 46 6f 6c 64 65 72 73 2c | 20 54 6f 74 61 6c 41 6e |Folders,| TotalAn|
|00001740| 79 3a 20 69 6e 74 65 67 | 65 72 3b 0d 09 54 6f 74 |y: integ|er;..Tot|
|00001750| 61 6c 56 6f 6c 75 6d 65 | 73 3a 20 49 6e 74 65 67 |alVolume|s: Integ|
|00001760| 65 72 3b 0d 09 46 4e 41 | 4d 45 20 3a 20 20 20 53 |er;..FNA|ME :   S|
|00001770| 54 52 32 35 35 3b 0d 0d | 09 50 52 4f 43 45 44 55 |TR255;..|.PROCEDU|
|00001780| 52 45 20 45 6e 75 6d 65 | 72 61 74 65 43 61 74 61 |RE Enume|rateCata|
|00001790| 6c 6f 67 20 28 64 69 72 | 49 44 54 6f 53 65 61 72 |log (dir|IDToSear|
|000017a0| 63 68 3a 20 4c 6f 6e 67 | 49 6e 74 29 3b 0d 09 56 |ch: Long|Int);..V|
|000017b0| 41 52 0d 09 09 43 61 74 | 4c 65 6e 2c 20 49 6e 64 |AR...Cat|Len, Ind|
|000017c0| 65 6e 74 2c 20 69 6e 64 | 65 78 20 3a 20 69 6e 74 |ent, ind|ex : int|
|000017d0| 65 67 65 72 3b 0d 09 42 | 65 67 69 6e 20 7b 45 6e |eger;..B|egin {En|
|000017e0| 75 6d 65 72 61 74 65 43 | 61 74 61 6c 6f 67 7d 0d |umerateC|atalog}.|
|000017f0| 09 09 69 6e 64 65 78 20 | 3a 3d 20 31 3b 0d 09 09 |..index |:= 1;...|
|00001800| 43 61 74 4c 65 6e 20 3a | 3d 20 4c 65 6e 67 74 68 |CatLen :|= Length|
|00001810| 20 28 43 61 74 53 74 72 | 69 6e 67 29 3b 0d 09 09 | (CatStr|ing);...|
|00001820| 72 65 70 65 61 74 0d 09 | 09 09 46 4e 61 6d 65 20 |repeat..|..FName |
|00001830| 3a 3d 20 27 27 3b 0d 09 | 09 09 6d 79 43 50 42 2e |:= '';..|..myCPB.|
|00001840| 69 6f 46 44 69 72 49 6e | 64 65 78 3a 3d 20 69 6e |ioFDirIn|dex:= in|
|00001850| 64 65 78 3b 0d 09 09 09 | 6d 79 43 50 42 2e 69 6f |dex;....|myCPB.io|
|00001860| 76 52 65 66 4e 75 6d 20 | 3a 3d 20 46 6c 6f 70 70 |vRefNum |:= Flopp|
|00001870| 79 56 6f 6c 3b 0d 09 09 | 09 6d 79 43 50 42 2e 69 |yVol;...|.myCPB.i|
|00001880| 6f 4e 61 6d 65 50 74 72 | 20 20 3a 3d 20 40 46 6e |oNamePtr|  := @Fn|
|00001890| 61 6d 65 3b 0d 09 09 09 | 6d 79 43 50 42 2e 69 6f |ame;....|myCPB.io|
|000018a0| 44 72 44 69 72 49 44 3a | 3d 20 64 69 72 49 44 54 |DrDirID:|= dirIDT|
|000018b0| 6f 53 65 61 72 63 68 3b | 20 20 7b 57 65 20 6e 65 |oSearch;|  {We ne|
|000018c0| 65 64 20 74 6f 20 64 6f | 20 74 68 69 73 20 65 76 |ed to do| this ev|
|000018d0| 65 72 79 20 74 69 6d 65 | 7d 0d 09 09 09 65 72 72 |ery time|}....err|
|000018e0| 20 3a 3d 20 50 42 47 65 | 74 43 61 74 49 6e 66 6f | := PBGe|tCatInfo|
|000018f0| 20 28 40 6d 79 43 50 42 | 2c 20 46 41 4c 53 45 29 | (@myCPB|, FALSE)|
|00001900| 3b 0d 09 09 09 0d 09 09 | 09 69 66 20 65 72 72 20 |;.......|.if err |
|00001910| 3d 20 6e 6f 45 72 72 20 | 74 68 65 6e 0d 09 09 09 |= noErr |then....|
|00001920| 09 7b 0d 09 09 09 09 09 | 49 20 68 61 76 65 20 73 |.{......|I have s|
|00001930| 65 65 6e 20 74 68 69 73 | 20 69 6e 20 61 63 74 69 |een this| in acti|
|00001940| 6f 6e 2e 20 20 49 74 20 | 77 6f 72 6b 73 2e 20 20 |on.  It |works.  |
|00001950| 49 20 64 6f 6e 27 74 20 | 0d 09 09 09 09 09 6b 6e |I don't |......kn|
|00001960| 6f 77 20 77 68 79 0d 09 | 09 09 09 7d 0d 09 09 09 |ow why..|...}....|
|00001970| 09 69 66 20 4d 79 42 69 | 74 54 73 74 20 28 40 6d |.if MyBi|tTst (@m|
|00001980| 79 43 50 42 2e 69 6f 46 | 6c 41 74 74 72 69 62 2c |yCPB.ioF|lAttrib,|
|00001990| 34 29 20 74 68 65 6e 20 | 42 65 67 69 6e 20 7b 77 |4) then |Begin {w|
|000019a0| 65 20 68 61 76 65 20 64 | 69 72 7d 0d 09 09 09 09 |e have d|ir}.....|
|000019b0| 09 43 61 74 53 74 72 69 | 6e 67 20 3a 3d 20 43 6f |.CatStri|ng := Co|
|000019c0| 6e 63 61 74 20 28 43 61 | 74 53 74 72 69 6e 67 2c |ncat (Ca|tString,|
|000019d0| 20 46 4e 61 6d 65 29 3b | 0d 09 09 09 09 09 4d 61 | FName);|......Ma|
|000019e0| 6b 65 46 6f 6c 64 65 72 | 3b 0d 09 09 09 09 09 45 |keFolder|;......E|
|000019f0| 6e 75 6d 65 72 61 74 65 | 43 61 74 61 6c 6f 67 20 |numerate|Catalog |
|00001a00| 28 6d 79 43 50 42 2e 69 | 6f 44 72 44 69 72 49 44 |(myCPB.i|oDrDirID|
|00001a10| 29 3b 0d 09 09 09 09 09 | 54 6f 74 61 6c 46 6f 6c |);......|TotalFol|
|00001a20| 64 65 72 73 20 3a 3d 20 | 54 6f 74 61 6c 46 6f 6c |ders := |TotalFol|
|00001a30| 64 65 72 73 2b 31 3b 0d | 09 09 09 09 09 43 61 74 |ders+1;.|.....Cat|
|00001a40| 53 74 72 69 6e 67 20 3a | 3d 20 43 6f 70 79 20 28 |String :|= Copy (|
|00001a50| 43 61 74 53 74 72 69 6e | 67 2c 20 31 2c 20 43 61 |CatStrin|g, 1, Ca|
|00001a60| 74 4c 65 6e 29 3b 0d 09 | 09 09 09 09 65 72 72 3a |tLen);..|....err:|
|00001a70| 3d 20 30 3b 0d 09 09 09 | 09 45 6e 64 0d 09 09 09 |= 0;....|.End....|
|00001a80| 65 6c 73 65 20 7b 6d 75 | 73 74 20 62 65 20 66 69 |else {mu|st be fi|
|00001a90| 6c 65 7d 20 42 65 67 69 | 6e 0d 09 09 09 09 43 6f |le} Begi|n.....Co|
|00001aa0| 70 79 46 69 6c 65 20 28 | 6d 79 43 50 42 2e 69 6f |pyFile (|myCPB.io|
|00001ab0| 4e 61 6d 65 50 74 72 5e | 29 3b 0d 09 09 09 09 54 |NamePtr^|);.....T|
|00001ac0| 6f 74 61 6c 46 69 6c 65 | 73 20 3a 3d 20 54 6f 74 |otalFile|s := Tot|
|00001ad0| 61 6c 46 69 6c 65 73 20 | 2b 20 31 3b 0d 09 09 09 |alFiles |+ 1;....|
|00001ae0| 45 6e 64 3b 0d 09 09 09 | 54 6f 74 61 6c 41 6e 79 |End;....|TotalAny|
|00001af0| 20 3a 3d 20 54 6f 74 61 | 6c 46 69 6c 65 73 20 2b | := Tota|lFiles +|
|00001b00| 20 54 6f 74 61 6c 46 6f | 6c 64 65 72 73 3b 0d 09 | TotalFo|lders;..|
|00001b10| 09 09 69 6e 64 65 78 20 | 3a 3d 20 69 6e 64 65 78 |..index |:= index|
|00001b20| 20 2b 20 31 3b 0d 09 09 | 75 6e 74 69 6c 20 65 72 | + 1;...|until er|
|00001b30| 72 20 3c 3e 20 6e 6f 45 | 72 72 3b 0d 09 45 6e 64 |r <> noE|rr;..End|
|00001b40| 3b 20 7b 45 6e 75 6d 65 | 72 61 74 65 43 61 74 61 |; {Enume|rateCata|
|00001b50| 6c 6f 67 7d 0d 0d 42 65 | 67 69 6e 20 7b 45 6e 75 |log}..Be|gin {Enu|
|00001b60| 6d 65 72 61 74 65 7d 0d | 09 54 6f 74 61 6c 56 6f |merate}.|.TotalVo|
|00001b70| 6c 75 6d 65 73 20 3a 3d | 20 30 3b 0d 09 51 75 69 |lumes :=| 0;..Qui|
|00001b80| 74 74 69 6e 67 20 3a 3d | 20 46 61 6c 73 65 3b 0d |tting :=| False;.|
|00001b90| 09 47 65 74 48 61 72 64 | 44 69 73 6b 3b 0d 09 45 |.GetHard|Disk;..E|
|00001ba0| 72 72 20 3a 3d 20 44 69 | 73 6b 45 6a 65 63 74 20 |rr := Di|skEject |
|00001bb0| 28 31 29 3b 09 7b 20 45 | 6a 65 63 74 20 62 6f 74 |(1);.{ E|ject bot|
|00001bc0| 68 20 64 69 73 6b 73 20 | 7d 0d 09 45 72 72 20 3a |h disks |}..Err :|
|00001bd0| 3d 20 44 69 73 6b 45 6a | 65 63 74 20 28 32 29 3b |= DiskEj|ect (2);|
|00001be0| 0d 09 4d 6f 75 6e 74 31 | 3b 0d 09 57 68 69 6c 65 |..Mount1|;..While|
|00001bf0| 20 6e 6f 74 20 51 75 69 | 74 74 69 6e 67 20 64 6f | not Qui|tting do|
|00001c00| 20 62 65 67 69 6e 3b 0d | 09 09 43 61 74 53 74 72 | begin;.|..CatStr|
|00001c10| 69 6e 67 20 3a 3d 20 27 | 3a 27 3b 0d 09 09 45 6e |ing := '|:';...En|
|00001c20| 75 6d 65 72 61 74 65 43 | 61 74 61 6c 6f 67 20 28 |umerateC|atalog (|
|00001c30| 32 29 3b 0d 09 09 54 6f | 74 61 6c 56 6f 6c 75 6d |2);...To|talVolum|
|00001c40| 65 73 20 3a 3d 20 54 6f | 74 61 6c 56 6f 6c 75 6d |es := To|talVolum|
|00001c50| 65 73 20 2b 20 31 3b 0d | 09 09 4d 6f 75 6e 74 31 |es + 1;.|..Mount1|
|00001c60| 3b 0d 09 65 6e 64 3b 0d | 20 20 20 0d 09 57 72 69 |;..end;.|   ..Wri|
|00001c70| 74 65 6c 6e 20 28 27 28 | 27 2c 20 54 6f 74 61 6c |teln ('(|', Total|
|00001c80| 56 6f 6c 75 6d 65 73 2c | 20 27 20 72 65 63 6f 76 |Volumes,| ' recov|
|00001c90| 65 72 79 20 64 69 73 6b | 73 20 70 72 6f 63 65 73 |ery disk|s proces|
|00001ca0| 73 65 64 29 27 29 3b 0d | 45 6e 64 3b 20 7b 45 6e |sed)');.|End; {En|
|00001cb0| 75 6d 65 72 61 74 65 7d | 0d 0d 7b 20 2d 2d 2d 2d |umerate}|..{ ----|
|00001cc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001cd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ce0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001cf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d00| 20 20 7d 0d 7b 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |  }.{ --|--------|
|00001d10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 20 7d 0d 0d 0d |--------|--  }...|
|00001d50| 42 65 67 69 6e 0d 09 4e | 6f 74 49 6e 69 74 65 64 |Begin..N|otInited|
|00001d60| 20 3a 3d 20 42 69 74 4e | 6f 74 20 28 49 6e 69 74 | := BitN|ot (Init|
|00001d70| 65 64 29 3b 0d 09 42 75 | 66 53 69 7a 65 20 3a 3d |ed);..Bu|fSize :=|
|00001d80| 20 31 32 38 20 2a 20 31 | 30 32 34 3b 0d 09 42 75 | 128 * 1|024;..Bu|
|00001d90| 66 66 65 72 50 74 72 20 | 3a 3d 20 4e 65 77 50 74 |fferPtr |:= NewPt|
|00001da0| 72 20 28 42 75 66 53 69 | 7a 65 29 3b 0d 09 57 72 |r (BufSi|ze);..Wr|
|00001db0| 69 74 65 6c 6e 20 28 27 | 48 61 72 64 20 64 69 73 |iteln ('|Hard dis|
|00001dc0| 6b 20 72 65 63 6f 76 65 | 72 79 20 70 72 6f 67 72 |k recove|ry progr|
|00001dd0| 61 6d 20 56 20 31 20 53 | 61 74 20 46 65 62 20 37 |am V 1 S|at Feb 7|
|00001de0| 2c 20 31 39 38 37 27 29 | 3b 0d 09 57 72 69 74 65 |, 1987')|;..Write|
|00001df0| 6c 6e 3b 0d 09 57 72 69 | 74 65 6c 6e 20 28 27 a9 |ln;..Wri|teln ('.|
|00001e00| 20 43 6f 70 79 72 69 67 | 68 74 20 31 39 38 37 20 | Copyrig|ht 1987 |
|00001e10| 62 79 20 43 68 61 72 6c | 65 73 20 41 2e 20 42 6f |by Charl|es A. Bo|
|00001e20| 75 6e 64 73 2e 20 41 6c | 6c 20 72 69 67 68 74 73 |unds. Al|l rights|
|00001e30| 20 72 65 73 65 72 76 65 | 64 2e 27 29 3b 0d 09 57 | reserve|d.');..W|
|00001e40| 72 69 74 65 6c 6e 20 28 | 27 20 20 54 68 69 73 20 |riteln (|'  This |
|00001e50| 70 72 6f 67 72 61 6d 20 | 6d 61 79 20 62 65 20 66 |program |may be f|
|00001e60| 72 65 65 6c 79 20 63 6f | 70 69 65 64 20 61 6e 64 |reely co|pied and|
|00001e70| 20 64 69 73 74 72 69 62 | 75 74 65 64 20 62 75 74 | distrib|uted but|
|00001e80| 20 6e 6f 74 20 73 6f 6c | 64 27 29 3b 0d 09 57 72 | not sol|d');..Wr|
|00001e90| 69 74 65 6c 6e 3b 0d 09 | 57 72 69 74 65 6c 6e 20 |iteln;..|Writeln |
|00001ea0| 28 27 4d 61 63 52 65 73 | 74 20 69 73 20 64 65 73 |('MacRes|t is des|
|00001eb0| 69 67 6e 65 64 20 73 70 | 65 63 69 66 69 63 61 6c |igned sp|ecifical|
|00001ec0| 6c 79 20 74 6f 20 72 65 | 63 6f 76 65 72 20 68 61 |ly to re|cover ha|
|00001ed0| 72 64 20 64 69 73 6b 73 | 20 64 75 6d 70 65 64 20 |rd disks| dumped |
|00001ee0| 62 79 20 4d 61 63 44 75 | 6d 70 27 29 3b 0d 09 57 |by MacDu|mp');..W|
|00001ef0| 72 69 74 65 6c 6e 20 28 | 27 77 72 69 74 74 65 6e |riteln (|'written|
|00001f00| 20 62 79 20 43 68 61 72 | 6c 69 65 20 42 75 72 6e | by Char|lie Burn|
|00001f10| 73 20 62 75 74 20 69 74 | 20 73 68 6f 75 6c 64 20 |s but it| should |
|00001f20| 62 65 20 61 62 6c 65 20 | 74 6f 20 72 65 63 6f 76 |be able |to recov|
|00001f30| 65 72 20 68 61 72 64 20 | 64 69 73 6b 73 27 29 3b |er hard |disks');|
|00001f40| 0d 09 57 72 69 74 65 6c | 6e 20 28 27 66 72 6f 6d |..Writel|n ('from|
|00001f50| 20 61 6e 79 20 46 69 6e | 64 65 72 2d 72 65 61 64 | any Fin|der-read|
|00001f60| 61 62 6c 65 20 73 65 74 | 20 6f 66 20 66 6c 6f 70 |able set| of flop|
|00001f70| 70 69 65 73 2e 20 20 54 | 68 65 20 64 69 73 6b 20 |pies.  T|he disk |
|00001f80| 74 6f 20 62 65 20 72 65 | 63 6f 76 65 72 65 64 20 |to be re|covered |
|00001f90| 4d 55 53 54 27 29 3b 0d | 09 57 72 69 74 65 6c 6e |MUST');.|.Writeln|
|00001fa0| 20 28 27 62 65 20 6e 61 | 6d 65 64 20 24 24 48 44 | ('be na|med $$HD|
|00001fb0| 20 28 4e 6f 74 65 20 63 | 61 70 69 74 61 6c 20 6c | (Note c|apital l|
|00001fc0| 65 74 74 65 72 73 29 2e | 20 20 49 66 20 79 6f 75 |etters).|  If you|
|00001fd0| 20 64 6f 6e 27 27 74 20 | 6c 69 6b 65 20 74 68 61 | don''t |like tha|
|00001fe0| 74 20 6e 61 6d 65 20 79 | 6f 75 27 29 3b 0d 09 57 |t name y|ou');..W|
|00001ff0| 72 69 74 65 6c 6e 20 28 | 27 63 61 6e 20 63 68 61 |riteln (|'can cha|
|00002000| 6e 67 65 20 69 74 20 61 | 66 74 65 72 20 64 6f 69 |nge it a|fter doi|
|00002010| 6e 67 20 74 68 65 20 72 | 65 63 6f 76 65 72 79 2e |ng the r|ecovery.|
|00002020| 27 29 3b 0d 09 57 72 69 | 74 65 6c 6e 3b 0d 09 57 |');..Wri|teln;..W|
|00002030| 72 69 74 65 6c 6e 20 28 | 27 42 65 20 73 75 72 65 |riteln (|'Be sure|
|00002040| 20 74 6f 20 72 65 63 6f | 76 65 72 20 66 69 72 73 | to reco|ver firs|
|00002050| 74 20 77 69 74 68 20 79 | 6f 75 72 20 6c 65 76 65 |t with y|our leve|
|00002060| 6c 20 39 20 62 61 63 6b | 75 70 73 2c 20 74 68 65 |l 9 back|ups, the|
|00002070| 6e 20 6c 65 76 65 6c 20 | 38 2c 20 65 74 63 2e 27 |n level |8, etc.'|
|00002080| 29 3b 0d 09 57 72 69 74 | 65 6c 6e 20 28 27 64 6f |);..Writ|eln ('do|
|00002090| 77 6e 20 74 6f 20 30 2e | 20 20 49 74 20 64 6f 65 |wn to 0.|  It doe|
|000020a0| 73 6e 27 27 74 20 6d 61 | 74 74 65 72 20 77 68 61 |sn''t ma|tter wha|
|000020b0| 74 20 6f 72 64 65 72 20 | 77 69 74 68 69 6e 20 61 |t order |within a|
|000020c0| 20 6c 65 76 65 6c 20 61 | 6e 79 20 64 69 73 6b 20 | level a|ny disk |
|000020d0| 69 73 20 75 73 65 64 2e | 27 29 3b 0d 09 57 72 69 |is used.|');..Wri|
|000020e0| 74 65 6c 6e 3b 0d 09 45 | 6e 75 6d 65 72 61 74 65 |teln;..E|numerate|
|000020f0| 3b 0d 09 44 65 6c 61 79 | 20 28 33 30 30 2c 20 54 |;..Delay| (300, T|
|00002100| 69 63 6b 73 29 3b 0d 45 | 6e 64 2e 0d 0d 00 00 00 |icks);.E|nd......|
|00002110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002180| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00002190| 00 07 04 26 00 17 05 04 | 88 16 50 6c 65 61 73 65 |...&....|..Please|
|000021a0| 20 6e 61 6d 65 20 74 68 | 69 73 20 64 69 73 6b 3a | name th|is disk:|
|000021b0| 1a 31 2e 20 44 44 45 78 | 70 61 6e 64 45 78 70 61 |.1. DDEx|pandExpa|
|000021c0| 6e 64 54 65 6d 70 46 69 | 6c 65 20 78 02 00 00 00 |ndTempFi|le x....|
|000021d0| 00 00 44 44 54 4d 44 44 | 41 50 01 00 00 00 00 00 |..DDTMDD|AP......|
|000021e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021f0| 00 00 a5 f4 cd 0e 00 00 | 20 8d 00 00 01 5c 61 69 |........| ....\ai|
|00002200| 6c 65 64 21 00 00 00 00 | 00 07 04 26 00 17 05 04 |led!....|...&....|
|00002210| 88 15 49 6e 69 74 69 61 | 6c 69 7a 65 20 74 68 69 |..Initia|lize thi|
|00002220| 73 20 64 69 73 6b 3f 00 | 00 00 00 00 00 07 04 26 |s disk?.|.......&|
|00002230| 00 17 05 04 88 19 54 68 | 69 73 20 69 73 20 61 20 |......Th|is is a |
|00002240| 74 77 6f 2d 73 69 64 65 | 64 20 64 69 73 6b 21 00 |two-side|d disk!.|
|00002250| 00 00 00 00 00 3b 04 52 | 00 50 04 9c 04 09 4f 6e |.....;.R|.P....On|
|00002260| 65 2d 53 69 64 65 64 00 | 00 00 00 00 00 3b 04 ac |e-Sided.|.....;..|
|00002270| 00 50 04 f6 04 09 54 77 | 6f 2d 53 69 64 65 64 00 |.P....Tw|o-Sided.|
|00002280| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f ec 00 00 |.......M|onaco...|
|00002290| 00 04 00 06 00 04 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|000022a0| 00 16 00 00 00 46 00 00 | cc 24 02 36 00 00 00 1c |.....F..|.$.6....|
|000022b0| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|000022c0| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 00 e8 20 |........|....... |
|000022d0| 03 ec ff ff 00 00 00 0e | 00 00 e8 18 00 00 00 00 |........|........|
|000022e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+